home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / pl_pix.lha / Install-Plan_pix next >
Text File  |  1996-11-06  |  2KB  |  106 lines
  1. (set source-lha                "Tools/LhA")
  2. (set run-lhapatterns        "Tools/LhaPatterns")
  3. (set run-lha            "RAM:LhA -a")
  4. (set pix            "Plan_pix.lha")
  5. ;
  6. ;---------------------------------------------------------------------
  7. ;
  8. ; Installer-Script for Planetarium pictures
  9. ;
  10.  
  11. ; strings
  12.  
  13. (set #install-hd-msg
  14. (cat        "                                                     "
  15.         "          Wo sollen die Bilder installiert werden?   "
  16.         "                                                     "
  17.         "          Where do you want to place the pictures?   "
  18.         "                                                     "
  19.         "          Ou voulez vous installer les tableau?      "
  20. ))
  21.  
  22. (set #install-hd-help
  23. (cat    "\nHier entscheiden Sie, in welches Verzeichnis die "
  24.         "Bilder für den Teleskopmodus kopiert werden sollen.\n\n"
  25.         "Empfehlenswert ist auf der Festplatte das Verzeichnis  "
  26.         "Planetarium/tele oder eine Diskette mit Namen 'Tele:'"
  27. ))
  28.  
  29.  
  30. (set #epack_pix1
  31. (cat    "                                                     "
  32.     "            Entpacken der Bilder...                  "
  33.     "            Decrunching main pics...                 "
  34. ))
  35.  
  36. ;
  37. ; Procedures
  38. ;
  39.  
  40.  
  41.  
  42.  
  43. (procedure do_hd 
  44.     (set default-dest
  45.         (askdir
  46.             (prompt #install-hd-msg)
  47.             (help #install-hd-help)
  48.             (default @default-dest)
  49.         )
  50.     )
  51.     
  52.  
  53. ; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
  54. ; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
  55. ; Probleme).
  56. ;--------------------------------------------------------------------------
  57.         (set dst-dir default-dest)
  58.         (if 
  59.          (and 
  60.           (> (strlen dst-dir) 0
  61.           ) 
  62.           (and 
  63.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":"
  64.            ) 
  65.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"
  66.            )
  67.           )
  68.          ) 
  69.         (set dst-dir (cat dst-dir "/")))
  70. ;--------------------------------------------------------------------------
  71.  
  72.     (message #epack_pix1)
  73.     (run (cat run-lha " x " pix " " dst-dir))
  74.     (complete 100)
  75.  
  76. )
  77.  
  78.  
  79. ;
  80. ;
  81. ; GO!
  82. ;
  83. ;
  84.  
  85. (complete 0)
  86. ; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
  87. ; baut...
  88.  
  89. (run run-lhapatterns)
  90.  
  91. ; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  92. ; geladen werden muß.
  93.  
  94. (copyfiles
  95.     (source source-lha)
  96.     (dest "RAM:")
  97.     (nogauge)
  98. )
  99. ; Beispiel:
  100. ; (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))
  101.  
  102. (set olduserlevel (user 1) )
  103. (do_hd)
  104. (complete 100)
  105. (delete "ram:lha")
  106.